home *** CD-ROM | disk | FTP | other *** search
/ Disney Interactive Software Sampler 1997 to 1998 / Disney Interactive 1997-98 Software Sampler.iso / pc / media / lkfloor.dxr / 00193_DownDown.ls < prev    next >
Encoding:
Text File  |  1997-10-17  |  632 b   |  29 lines
  1. global pUp, pDown, pSomm, pHelp, pQuit, ThemeDown
  2.  
  3. on mouseUp
  4.   puppetSound("Beep-" & random(26))
  5.   repeat with i = pUp to pQuit
  6.     set the visible of sprite (i + 6) to 0
  7.   end repeat
  8.   updateStage()
  9.   repeat while soundBusy(1)
  10.     nothing()
  11.   end repeat
  12.   puppetTransition(member "TransDown" of castLib "Master")
  13.   repeat with i = 1 to 4
  14.     puppetSound(i, 0)
  15.   end repeat
  16.   if marker(0) = label("VG") then
  17.     go(3000)
  18.     go(ThemeDown, "HerFloor.dir")
  19.   else
  20.     if marker(0) = label("AC") then
  21.       go(3000)
  22.       go("AC", "TOYFLOOR.DIR")
  23.     else
  24.       go(3000)
  25.       go(ThemeDown, field "MovieDown")
  26.     end if
  27.   end if
  28. end
  29.